Option Explicit
Sub P_Sample016()
    Dim myFso    As Scripting.FileSystemObject
    Dim myDrives As Scripting.Drives
    Dim myDrive  As Scripting.Drive
    Set myFso = New Scripting.FileSystemObject
    Set myDrives = myFso.Drives
    For Each myDrive In myDrives
        With myDrive
        Debug.Print .DriveLetter
        End With
    Next
    Set myFso = Nothing				'
End Sub
